perm filename STDBRK.SAI[NEW,AIL] blob sn#125766 filedate 1979-01-08 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "STDBRK"
C00004 ENDMK
C⊗;
BEGIN "STDBRK"
COMMENT WARNING !!!!!!! The ARRYOUT statement below must be changed if the
	length or position of BKTPTR or BRKTBL is changed.;
LABEL WRITE;
EXTERNAL INTEGER GOGTAB;
INTEGER COUNT,BRCHAR,EOF;
STRING DELIMS,LETTS,DIGS,SAILID;
DELIMS←'15 & '12 & '40 & '11 & '14;	COMMENT CR,LF,SP,TAB,FF;
LETTS←"ABCDEFGHIJKLMNOPQRSTUVWXYZabcedfghijklmnopqrstuvwxyz_";
DIGS←"0123456789";
SAILID←LETTS&DIGS;

SETBREAK(1,'12,'15,"INS");
SETBREAK(2,'12,NULL,"INA");
SETBREAK(3,DELIMS,NULL,"XNR");
SETBREAK(4,SAILID,NULL,"INS");
SETBREAK(5,SAILID,NULL,"INR");
SETBREAK(6,LETTS,NULL,"XNR");
SETBREAK(7,DIGS,NULL,"XNR");
SETBREAK(8,DIGS,NULL,"INS");
SETBREAK(9,DIGS,NULL,"INR");
SETBREAK(10,DIGS&"+-@.",NULL,"XNR");
SETBREAK(11,DIGS&"+-@.",NULL,"INS");
SETBREAK(12,DIGS&"+-@.",NULL,"INR");
SETBREAK(13,NULL,NULL,NULL);
SETBREAK(14,NULL,NULL,NULL);
SETBREAK(15,NULL,NULL,NULL);
SETBREAK(16,NULL,NULL,NULL);
SETBREAK(17,NULL,NULL,NULL);
SETBREAK(18,NULL,NULL,NULL);

OPEN(1,"DSK",'14,0,2,COUNT,BRCHAR,EOF);
ENTER(1,"BKTBL.BKT",BRCHAR);
WRITE:ARRYOUT(1,MEMORY[MEMORY[GOGTAB+'36]],'251);
CLOSE(1);

END "STDBRK";